/* ---------------------------------------------------------------------- */

#define ns__alpha0 "::alpha"

static int
tcl__alpha0(ClientData cd, Tcl_Interp *interp, int oc, Tcl_Obj *CONST ov[])
{
  int rv;
  if (oc != 1) {
    Tcl_WrongNumArgs(interp, 1, ov, NULL);
    return TCL_ERROR;
  }

  /* Const - - -- --- ----- -------- */
  rv = FOO;

  /* (bool return) - - -- --- ----- -------- */
	Tcl_SetObjResult(interp, Tcl_NewIntObj(rv));
	return TCL_OK;
}
